﻿Imports System
Imports System.Data.OleDb
'Imports System.Data.SqlClient

Public Class DAL_DangNhap

    Public conn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\10650_000\Desktop\ltudql1-doan\Database\Database.mdb"

    Public Function LoadDanhSachTaiKhoan() As DataSet

        Dim strSQL As String = "Select * from TAIKHOAN"

        Dim con As New OleDbConnection(conn)

        Dim da As New OleDbDataAdapter(strSQL, con)

        Dim ds As New DataSet

        da.Fill(ds)

        Return ds

    End Function

    Public Function LoadDanhSachSinhVienThi() As DataSet

        Dim strSQL As String = "Select * from SINHVIEN_THI"

        Dim con As New OleDbConnection(conn)

        Dim da As New OleDbDataAdapter(strSQL, con)

        Dim ds As New DataSet

        da.Fill(ds)

        Return ds

    End Function
End Class
